home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
bbs
/
euroaway
/
euroaway.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-07-10
|
1KB
|
55 lines
type
jono = string[80];
var
infil : text;
outfil : text;
sisaan : jono;
filname1 : string[32];
filname2 : string[32];
procedure tarkista(var sisaan:jono);
var paikka : integer;
begin
paikka := pos('.EURO',sisaan);
if paikka > 0
then begin
sisaan := copy(sisaan,1,paikka+2);
end;
paikka := pos('.NOAM',sisaan);
if paikka > 0
then begin
sisaan[paikka+2] := 'A';
sisaan := copy(sisaan,1,paikka+2);
end;
paikka := pos('.ASIA',sisaan);
if paikka > 0
then begin
sisaan := copy(sisaan,1,paikka+2);
end;
end;
begin
filname1:='c:\fbb\system\hroute.sys';
filname2:='c:\fbb\backup\temp.$$$';
assign (infil,filname1);
assign (outfil,filname2);
rewrite (outfil);
reset (infil);
while not eof(infil) do
begin
readln (infil,sisaan);
tarkista(sisaan);
writeln (outfil,sisaan);
end;
close (infil);
close (outfil);
writeln('Rename temp.$$$ to hroute.sys');
end.